home *** CD-ROM | disk | FTP | other *** search
- $!
- $! This file sets things up to build gas on a VMS system to generate object
- $! files for a VMS system. We do not use the configure script, since we
- $! do not have /bin/sh to execute it.
- $!
- $! If you are running this file, then obviously the host is vax-dec-vms.
- $! [That's no longer obvious, but there's not much we can do about alpha yet.]
- $!
- $gas_host="vms"
- $!
- $cpu_type="vax"
- $emulation="generic"
- $obj_format="vms"
- $atof="vax"
- $!
- $ DELETE = "delete/noConfirm"
- $ ECHO = "write sys$output"
- $!
- $! Target specific information
- $call link targ-cpu.c [.config]tc-'cpu_type'.c
- $call link targ-cpu.h [.config]tc-'cpu_type'.h
- $call link targ-env.h [.config]te-'emulation'.h
- $!
- $! Code to handle the object file format.
- $call link obj-format.h [.config]obj-'obj_format'.h
- $call link obj-format.c [.config]obj-'obj_format'.c
- $!
- $! Code to handle floating point.
- $call link atof-targ.c [.config]atof-'atof'.c
- $!
- $!
- $! Create the file version.opt, which helps identify the executable.
- $!
- $if f$trnlnm("IFILE$").nes."" then close/noLog ifile$
- $search Makefile.in "VERSION="/Exact/Output=config-gas-tmp.tmp
- $open ifile$ config-gas-tmp.tmp
- $read ifile$ line
- $close ifile$
- $DELETE config-gas-tmp.tmp;*
- $! Discard "VERSION=" and "\n" parts.
- $ijk=f$locate("=",line)+1
- $line=f$extract(ijk,f$length(line)-ijk,line)
- $! [what "\n" part?? this seems to be useless, but is benign]
- $ijk=f$locate("\n",line)
- $line=f$extract(0,ijk,line)
- $!
- $ if f$search("version.opt").nes."" then DELETE version.opt;*
- $copy _NL: version.opt
- $open/Append ifile$ version.opt
- $write ifile$ "identification="+""""+line+""""
- $close ifile$
- $!
- $! Now write config.h.
- $!
- $ if f$search("config.h").nes."" then DELETE config.h;*
- $copy _NL: config.h
- $open/Append ifile$ config.h
- $write ifile$ "/* config.h. Generated by config-gas.com. */
- $write ifile$ "#ifndef GAS_VERSION"
- $write ifile$ "#define GAS_VERSION """,line,""""
- $write ifile$ "#endif"
- $write ifile$ "/*--*/"
- $append [.config]vms-conf.h ifile$:
- $close ifile$
- $ECHO "Created config.h."
- $!
- $! Check for, and possibly make, header file <unistd.h>.
- $!
- $ if f$search("tmp-chk-h.*").nes."" then DELETE tmp-chk-h.*;*
- $!can't use simple `#include HDR' with `gcc /Define="HDR=<foo.h>"'
- $!because the 2.6.[0-3] preprocessor handles it wrong (VMS-specific gcc bug)
- $ create tmp-chk-h.c
- int tmp_chk_h; /* guarantee non-empty output */
- #ifdef HAVE_STDIO_H
- #include <stdio.h>
- #endif
- #ifdef HAVE_UNISTD_H
- #include <unistd.h>
- #endif
- #ifdef HAVE_UNIXIO_H
- #include <unixio.h>
- #endif
- #ifdef HAVE_UNIXLIB_H
- #include <unixlib.h>
- #endif
- $ on warning then continue
- $ CHECK = "call tmp_chk_h"
- $ CHECK "HAVE_STDIO_H"
- $ if .not.$status
- $ then type sys$input:
-
- ? could not compile <stdio.h>.
- Since gcc is not set up correctly, gas configuration cannot proceed.
-
- $ DELETE tmp-chk-h.c;*
- $ exit %x002C
- $ endif
- $!
- $ CHECK "HAVE_UNISTD_H"
- $ if .not.$status
- $ then
- $ if f$trnlnm("HFILE$").nes."" then close/noLog hfile$
- $ CHECK "HAVE_UNIXIO_H"
- $ got_unixio = ($status .and. 1)
- $ CHECK "HAVE_UNIXLIB_H"
- $ got_unixlib = ($status .and. 1)
- $ create []unistd.h !with rudimentary contents
- /* <unistd.h> substitute for building gas */
- #ifndef UNISTD_H
- #define UNISTD_H
-
- $ open/Append hfile$ []unistd.h
- $ if got_unixio
- $ then write hfile$ "#include <unixio.h>"
- $ else append sys$input: hfile$:
- /* some of the routines normally prototyped in <unixio.h> */
- extern int creat(), open(), close(), read(), write();
- extern int access(), dup(), dup2(), fstat(), stat();
- extern long lseek();
- $ endif
- $ write hfile$ ""
- $ if got_unixlib
- $ then write hfile$ "#include <unixlib.h>"
- $ else append sys$input: hfile$:
- /* some of the routines normally prototyped in <unixlib.h> */
- extern char *sbrk(), *getcwd(), *cuserid();
- extern int brk(), chdir(), chmod(), chown(), mkdir();
- extern unsigned getuid(), umask();
- $ endif
- $ append sys$input: hfile$:
-
- #endif /*UNISTD_H*/
- $ close hfile$
- $ ECHO "Created ""[]unistd.h""."
- $ endif !gcc '#include <unistd.h>' failed
- $ DELETE tmp-chk-h.c;*
- $
- $tmp_chk_h: subroutine
- $ set noOn
- $ hname = f$edit("<" + (p1 - "HAVE_" - "_H") + ".h>","LOWERCASE")
- $ write sys$output "Checking for ''hname'."
- $ if f$search("tmp-chk-h.obj").nes."" then DELETE tmp-chk-h.obj;*
- $ define/noLog sys$error _NL: !can't use /User_Mode here due to gcc
- $ define/noLog sys$output _NL: ! driver's use of multiple image activation
- $ gcc /Include=([],[-.include]) /Define=("''p1'") tmp-chk-h.c
- $!can't just check $status; gcc 2.6.[0-3] preprocessor doesn't set it correctly
- $ ok = (($status.and.1).and.(f$search("tmp-chk-h.obj").nes."")) .or. %x10000000
- $ deassign sys$error !restore, more or less
- $ deassign sys$output
- $ if ok then DELETE tmp-chk-h.obj;*
- $ exit ok
- $ endsubroutine !tmp_chk_h
- $
- $!
- $! Done
- $!
- $ if f$search("config.status") .nes. "" then DELETE config.status;*
- $ create config.status
- Links are now set up for use with a vax running VMS.
- $ type config.status
- $exit
- $!
- $!
- $link:
- $subroutine
- $ if f$search(p1).nes."" then DELETE 'p1';*
- $ copy 'p2' 'p1'
- $ ECHO "Copied ''f$edit(p2,"LOWERCASE")' to ''f$edit(p1,"LOWERCASE")'."
- $endsubroutine
-